home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / USRTRACE.M < prev    next >
Encoding:
Text File  |  1990-11-29  |  1.7 KB  |  3 lines
  1. ⓪ MODULE UsrTrace;⓪ (*$L-*)⓪ ⓪ FROM ModCtrl IMPORT InstallModule, ReleaseModule, FirstModuleStart;⓪ ⓪ FROM MOSGlobals IMPORT MemArea;⓪ ⓪ FROM SYSTEM IMPORT ASSEMBLER;⓪ ⓪ VAR wsp: MemArea;⓪ ⓪ ⓪ CONST   RegD0 = 04; RegD1 = 08; RegD2 = 12; RegD3 = 16; RegD4 = 20; RegD5 = 24;⓪(RegD6 = 28; RegD7 = 32; RegA0 = 36; RegA1 = 40; RegA2 = 44; RegA3 = 48;⓪(RegA4 = 52; RegA5 = 56; RegA6 = 60; RegA7 = 64; RegSR = 02; RegPC = 68;⓪(RegUSP = 72; RegSSP = 76; RegBEV = 80; RegAEV = 84;⓪ ⓪ ⓪ VAR⓪"cnt: CARDINAL;⓪ ⓪ PROCEDURE trc;⓪"BEGIN⓪$ASSEMBLER⓪(; In A0 erhält sie einen Zeiger auf die CPU-Register.⓪(; In D0.B muß die Routine einen Wert ungleich Null liefern, wenn⓪(; der Trace-Modus unterbrochen werden soll.⓪(TST.B   RegA5(A0)⓪(SNE     D0⓪$END⓪"END trc;⓪ ⓪ PROCEDURE install;⓪"BEGIN⓪$ASSEMBLER⓪(MOVE.L  #trc,$3F0⓪$END⓪"END install;⓪ ⓪ PROCEDURE dummy; END dummy;⓪ ⓪ BEGIN⓪"ASSEMBLER⓪(PEA     install⓪(MOVE    #38,-(A7)⓪(TRAP    #14⓪(ADDQ.L  #6,A7⓪"END;⓪"InstallModule (dummy,wsp)  (* Dieses Modul resident machen *)⓪ END UsrTrace.⓪ ə
  2. (* $FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$000003F0$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15$FFED9E15Ç$000001ECT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000002F5$000001EC$FFEBEA10$FFEBEA10$FFEBEA10$FFEBEA10$FFEBEA10$FFEBEA10$FFEBEA10$000003F5$0000037F$000003F6$000003C7$FFEBEA10$00000206$00000349êÇé*)
  3.